home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / Notes.cpt / Notes on Notes / card_7615.txt < prev    next >
Text File  |  1988-04-15  |  2KB  |  107 lines
  1. -- card: 7615 from stack: in
  2. -- bmap block id: 6628
  3. -- flags: 0000
  4. -- background id: 2729
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   hide bkgnd button next
  9.   play "dawn chorus"
  10.   repeat while the sound is not "done"
  11.   end repeat
  12. end opencard
  13.  
  14. on closecard
  15.   visual dissolve slowly
  16.   show bkgnd button next
  17. end closecard
  18.  
  19.  
  20.  
  21. -- part 2 (field)
  22. -- low flags: 80
  23. -- high flags: 0002
  24. -- rect: left=6 top=6 right=157 bottom=157
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 0
  28. -- font id: 3
  29. -- text size: 12
  30. -- style flags: 0
  31. -- line height: 16
  32. -- part name: Tom1
  33. ----- HyperTalk script -----
  34.  
  35. on openfield
  36.   if the optionKey is down then
  37.     set lockscreen to true
  38.     choose button tool
  39.     get loc of target
  40.     subtract 72 from item 2 of it
  41.     subtract 72 from item 1 of it
  42.     click at it
  43.     domenu "Clear Button"
  44.     choose field tool
  45.     get loc of target
  46.     click at it
  47.     domenu "Clear Field"
  48.     choose browse tool
  49.     set lockscreen to false
  50.   end if
  51.   wait 10 ticks
  52.   if the mouse is down then
  53.     repeat until the mouse is up
  54.       set the loc of the target to the mouseLoc
  55.       get the loc of target
  56.       subtract 72 from item 2 of it
  57.       subtract 72 from item 1 of it
  58.       set the loc of button Tom1 to it
  59.     end repeat
  60.   end if
  61. end openfield
  62.  
  63.  
  64. -- part 3 (button)
  65. -- low flags: 00
  66. -- high flags: 0002
  67. -- rect: left=6 top=6 right=12 bottom=12
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Tom1
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   Set the visible of card field id 2 to not the visible of card field id 2
  79. end mouseUp
  80.  
  81.  
  82. -- part 4 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=95 top=294 right=317 bottom=122
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 11045 / 11045
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: go home
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   go home
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part contents for card part 2
  102. ----- text -----
  103.  
  104. This sound is called 
  105. "Dawn Chorus".  It is played twice and modified to taper off.
  106. It's from a stack offered up by:
  107. Mr. David Rakowski